home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / proged1.lha / InstallProgED / SASC_support / Sources / GetArguments.c < prev    next >
C/C++ Source or Header  |  1995-06-10  |  957b  |  49 lines
  1.  
  2. #include <proto/dos.h>
  3. #include <proto/exec.h>
  4. #include <proto/reqtools.h>
  5. #include <libraries/reqtools.h>
  6. #include <stdlib.h>
  7. #include <string.h>
  8. #include <stdio.h>
  9.  
  10. struct ReqToolsBase    *ReqToolsBase;
  11.  
  12. void main(int argc,char *argv[])
  13. {
  14.     BPTR    file;
  15.     char    buffer[500];
  16.  
  17.  
  18.     if (!(ReqToolsBase=(struct ReqToolsBase *)OpenLibrary(REQTOOLSNAME,REQTOOLSVERSION)))
  19.     {
  20.         printf("Can't open %s V%d\n",REQTOOLSNAME,REQTOOLSVERSION);
  21.         exit(0);
  22.     }
  23.  
  24.     if (file=Open("PrjArguments",MODE_OLDFILE))
  25.     {
  26.         FGets(file,buffer,sizeof(buffer)-1);
  27.         if (buffer[0])    buffer[strlen(buffer)-1]='\0';
  28.         Close(file);
  29.     }
  30.  
  31.     if (rtGetString(buffer,sizeof(buffer)-1,"Enter CLI arguments",NULL,
  32.         RTGS_AllowEmpty,    TRUE,
  33.     TAG_END))
  34.     {
  35.         if (!(file=Open("PrjArguments",MODE_NEWFILE)))
  36.         {
  37.             CloseLibrary((struct Library *)ReqToolsBase);
  38.             exit(5);
  39.         }
  40.         Write(file,buffer,strlen(buffer));
  41.         Write(file,"\n",1);
  42.         Close(file);
  43.     }
  44.  
  45.     CloseLibrary((struct Library *)ReqToolsBase);
  46.  
  47.     exit(0);
  48. }
  49.